1 POKE53280,0
2 A=A+1:IFA=1THENLOAD"MAIN",8,1
3 POKE1202,0:POKE1203,0:POKE35584,177:POKE33023,17:POKE1200,0:POKE1201,0
4 FORI=1TO10:N$(I)="COBRA SOFT":HS(I)=1000:NEXT:POKE33043,4:GOTO990
98 POKE1039,5:POKE1047,7:POKE1045,1:POKE53265,65:POKE1200,0:POKE1201,0
100 PRINT"[147][155]";:POKE53265,65:POKE53280,0:POKE53281,13:POKE53278,0
102 LE=PEEK(1045)
106 IFLE=1THEN1001
107 IFLE=2THEN2001
108 IFLE=3THEN2051
109 IFLE=4THEN3001
110 IFLE=5THEN3201
111 IFLE=6THEN3101
112 IFLE=7THEN3301
113 IFLE=8THEN4001
114 IFLE=9THEN5001
115 IFLE=10THEN6001
116 IFLE=11THENPOKE1045,1:POKE56325,40:GOTO100
990 V=53248:POKEV+28,1
991 POKEV+39,0:POKE53285,1
999 POKE53248+22,24:POKE53282,0:POKE53283,8:GOTO10000
1000 REM BILD I
1001 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
1002 PRINT"[204][205][206]         [161][161][161][161][161][161][182]       [149][212][213]
1003 [153]" (null)   PRINTATNPEEKASC    ]]]]GETGETSPC( LIST#     VERIFY(null)(null)
1004 PRINT"[209][210][211]  [153][200][201][203]        [161][161][161][161][161][182]  [161][161][161][182]
1005 [153]"     (null)(null)(null)     VERIFY(null)(null) PRINT]]]]]SPC(  ]]GETSPC(
1006 PRINT"[155]#     [208]      [149][214][215]           [153][161][
1007 [153]" VERIFY(null)(null)  (null)(null)(null)             PRINTATNPEEKASC  GETGETGETGET
1008 PRINT" [149][214][215]     [155]#    [153][196][198]  [155]#   [153][200][207][202]  ]]][161]
1009 [153]"GETGETGETGETGETGETGETABS     LEFT$(null)ASC     LEFT$CHR$MID$     GET
1010 PRINT"[161][]]]][161][     [204][205][206]     [204][205][206]     [161]
1011 [153]"GET[    ]SPC(    GETGET(null)GETGETGETABS   (null)    VERIFY(null)(null)PRINTGET
1012 PRINT"[161][ [149][212][213][153]       ]][210]]]][166]  [209][210][166][211]  [149][214][215][153][161]
1013 [153]"GET[ VERIFY(null)(null)        LIST#               ]
1014 PRINT"[153][161][ [155]#  #               #
1015 [153]"PRINTGETGETGETGETGETGETGETGETGETABS
1016 PRINT"[166][166][166][166][166][166][166][166][166][166]       [196][195][198]
1017 [153]"                 LEFT$RIGHT$MID$    VERIFY(null)(null)
1018 PRINT"[149][212][213]           [155]#   [153][204][205][206]    [149][214][215]
1019 [153]"VERIFY(null)(null) LIST#              (null)
1020 PRINT"    [153][193][194][198] [161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][182] [161][161][161][161][161][182]
1021 [153]"    LEFT$RIGHT$MID$ ]]]]]]]]]]]]]]]]SPC( ]]]]]SPC(
1022 PRINT"    [204][205][206]     [155]#
1023 [153]"     (null)    VERIFY(null)(null) (null)(null)  (null)(null)
1024 PRINT"    [209][210][211]   [149][214][215] [214][215]  [214][215]":POKE1057,10:POKE1047,7
1025 PRINT"[155][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220]";:POKE49152+999,104
1026 POKE55296+999,15
1099 PRINT"";
1100 PRINTSPC(30)"[168][220][168][220][168][220][168][220][168][220]";
1101 PRINTSPC(30)"[220][168][166][166][166][166][166][166][166][168]";
1102 PRINTSPC(30)"[168][220][166][151]SCORE[166][155][220]";
1103 PRINTSPC(30)"[220][168][166][166][166][166][166][166][166][168]";
1104 PRINTSPC(30)"[168][220][166][149]00000[166][155][220]";
1105 PRINTSPC(30)"[220][168][166][166][166][166][166][166][166][168]";
1106 PRINTSPC(30)"[168][220][168][220][168][220][168][220][168][220]";
1107 PRINTSPC(30)"[220][168][220][168][220][168][220][168][220][168]";
1108 PRINTSPC(30)"[168][220][166][166][166][166][166][166][166][220]";
1109 PRINTSPC(30)"[220][168][166][166][150]H[166]I[166][166][155][168]";
1110 PRINTSPC(30)"[168][220][166][150]SCORE[166][155][220]";
1111 PRINTSPC(30)"[220][168][166][166][166][166][166][166][166][168]";
1112 PRINTSPC(30)"[168][220][166][149]00000[166][155][220]";
1113 PRINTSPC(30)"[220][168][166][166][166][166][166][166][166][168]";
1114 PRINTSPC(30)"[168][220][168][220][168][220][168][220][168][220]";
1115 PRINTSPC(30)"[220][168][166][167][170][166][166][166][166][168]";
1116 PRINTSPC(30)"[168][220][166][185][175][166][149]0[166][166][155][220]";
1117 PRINTSPC(30)"[220][168][166][166][149][171][166][166][166][166][155][168]";
1118 PRINTSPC(30)"[168][220][166][166][178][166][149]3[166][166][155][220]";
1119 PRINTSPC(30)"[220][168][166][166][166][166][166][166][166][168]";
1120 PRINTSPC(30)"[168][220][152]JUMPS[166][149]5[155][220]";
1121 PRINTSPC(30)"[220][168][166][166][166][166][166][166][166][168]";
1122 PRINTSPC(30)"[168][220][166][166][166][166][166][166][166][220]";
1123 A=PEEK(1200):B=PEEK(1201):D=35
1124 Z=A*25+B*200
1125 IFZ>9999THEND=32:GOTO1128
1126 IFZ>999THEND=33:GOTO1128
1127 IFZ>99THEND=34:GOTO1128
1128 POKE211,D:POKE214,5:SYS58640:PRINT"[149]"Z"";
1129 POKE211,D:SYS58640:IFD=32THEN1131
1130 PRINT"[149]0";:GOTO1132
1131 PRINT"[149][166]";
1132 A=PEEK(1202):B=PEEK(1203):D=35
1134 Z=A*25+B*200
1135 IFZ>9999THEND=32:GOTO1138
1136 IFZ>999THEND=33:GOTO1138
1137 IFZ>99THEND=34:GOTO1138
1138 POKE211,D:POKE214,13:SYS58640:PRINT"[149]"Z"";
1139 POKE211,D:SYS58640:IFD=32THEN1141
1140 PRINT"[149]0";:GOTO1142
1141 PRINT"[149][166]";
1142 A=PEEK(1039)
1143 POKE211,35:POKE214,19:SYS58640:PRINT"[149]"A"";:PRINT"[157][157][157][149][166]";
1144 A=PEEK(1047):POKE211,37:POKE214,21:SYS58640
1145 PRINT"[149]"A"":PRINT"[145][145][157][157][157][166]";
1150 POKE53265,155
1200 SYS25778
1201 A=PEEK(1039):IFA=0THEN1203
1202 GOTO100
1203 A=PEEK(1200):B=PEEK(1201):E=PEEK(1202):F=PEEK(1203)
1204 SC=SC+(A*25):SC=SC+(B*200)
1205 IFSC>HS(10)THEN9200
1206 GOTO10000
2000 REM BILD 2
2001 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
2002 PRINT"             [149][212][213]       [153][200][201][202]
2003 [153]"ATNPEEKASCPRINTATNPEEKVAL STR$PEEKASC   VERIFY(null)(null)  (null)(null)   PRINT(null)(null)(null)
2004 PRINT"[200][201][202][153][200][207][202] [200][201][202]       [149][214][215]    [208]   [212][213][153]
2005 [153]"(null)(null)(null)PRINT(null)RIGHT$(null) PRINT(null)(null)(null)    STR$(null)ASC     (null)(null)(null)  VERIFY(null)(null)
2006 PRINT" [208]  [208]   [208]     [153][200][203][202]
2007 [153]"(null)(null)(null)(null)(null)(null) (null)(null)(null)    LEFT$CHR$MID$   GETGETGETGETGETGETGETGETABS
2008 PRINT"     [149][212][213]       [153][204][205][206]   [161][161][]]]]][166]
2009 [153]"VERIFY(null)(null) (null)(null)(null)(null)        (null)  (null)(null)PRINTGETGET[VERIFY(null)(null) (null)(null)
2010 PRINT"[214][215] [214][215]         [209][210][211] [214][215][153][161][161][[149][214][215] [214][215]
2011 [153]"PRINTGETGETGETGETGETGETGETGETGETABS          GETGETGETGETGETGETGET[
2012 PRINT"]]]]]]]][161][      [161][182]  [161][161][161][161][161][161][161][
2013 [153]"        ]SPC(      GET[  ]]]]]]GET[LIST#
2014 PRINT" #[153][193][195][198]     [193][194][198]   [161][ [155]# #  [149][212][213][153][161][166]
2015 [153]"  LEFT$(null)MID$     LEFT$(null)MID$   GETGETGETGETGETABS  VERIFY(null)(null)PRINTGET[ ATN
2016 PRINT"  [204][205][206]     [204][205][206]   ]]]][161][  [161][161][161][ [200]
2017 [153]"LIST#  (null)       (null)        PRINTGET[  GET[]SPC( (null)
2018 PRINT"  [209][210][211]     [209][210][211]    [149][212][213] [153][161][  [161][
2019 [153]"                 VERIFY(null)(null) PRINT]SPC(  GET[   (null)
2020 PRINT"   [155]#             # #  ##[153][161][ [149][212][213]
2021 [153]"POKEICDWAIT            PRINTGETGETGETGETGETGETGETGETGETGET[ VERIFY(null)(null)
2022 PRINT"[151]MNNCD[146] ABICD[146]    ]]]]]]]]]][166]
2023 [153]"MN MMIMMNGHWAIT      LIST#POKE
2024 PRINT"MNMMN MGH[146]":POKE1057,12:POKE1047,4
2025 GOTO1025
2050 REM BILD 3
2051 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
2052 PRINT"[194][198] [200][201][202][204][205][199][203][202][193][195][197]   [196][194][198] [149][212][213] [153][200][207][202]
2053 [153]"RIGHT$MID$ (null)(null)(null) (null)(null)(null)(null)LEFT$RIGHT$MID$PEEKASC LEFT$RIGHT$MID$ VERIFY(null)(null) PRINT(null)(null)(null) LIST#PRINT
2054 PRINT"[205][202][194][198][208] [193][195][197][208] [204][205][202][201][202] [204][205][206]  [193][194][197][208]  [193][194][197]
2055 [153]"(null)LEFT$RIGHT$MID$(null)(null)LEFT$RIGHT$MID$PEEKASCATNPEEKRIGHT$RIGHT$MID$PEEKVAL(null) LIST#PRINT LEFT$(null)MID$(null)(null) LEFT$CHR$(null)
2056 PRINT"[210][204][205][206]  [204][205][202][201][201][200][199][202][205][200][201][202][210][196][194][198][204][205][206]   [204][205][206]
2057 [153]"LIST#PRINT (null) ATNPEEKASC(null)(null)MID$(null)(null)(null)(null)(null)(null)MID$(null) LEFT$RIGHT$MID$ (null)  VERIFY(null)(null)PRINT (null)
2058 PRINT" [193][195][197][200][201][202][210][211][208]  [208][209][210][211][208]  [204][205][206][209][210][211] [149][214][215][153][209][210][211]
2059 [153]" LEFT$RIGHT$MID$(null)RIGHT$(null) (null)(null)(null)ATNPEEKASC (null)(null)(null)  (null)  ATNPEEKVAL  ATNLEN
2060 PRINT" [204][201][206] [208]     [200][201][202] [155]# [153]  [209][210][211] [200][201][202]  [200][207]
2061 [153]"  (null) (null)(null)(null) VERIFY(null)(null) PRINT(null)(null)(null)  ATNPEEKVAL    (null)MID$(null) LIST#PRINT(null)(null)
2062 PRINT" [209][210][211]    [149][214][215] [153] [208]   [200][199][202]     [208]    [208]
2063 [153]"GETGETGETGETGETGETGETGETGETABS (null)(null)(null)  (null)(null)(null)    (null)(null)(null) GETGET[
2064 PRINT"[161][]]]]]][161][       [208]         ][161][
2065 [153]"GET[VERIFY(null)(null)(null)(null)  PRINTGET[  VERIFY(null)(null)  (null)(null)(null)   (null)(null)PRINT    GET[EADY.
2066 PRINT"[161][[149][214][215][214][215]  [153][161][  [149][214][215]        [214][215][153]    [161][
2067 [153]"GETGETGETGETGET[  GET[                  GET[
2068 PRINT"]]]][161][  [161][161][161][161][161][  [193][194][197] [161][161][161][161][161][161][182] ][166]
2069 [153]"    GET[  ]]]]]SPC(  LEFT$RIGHT$MID$ GET[]]]]SPC(
2070 PRINT"[149][212][213]  [153][161][        [149][212][213][153][204][205][206] [161][     [149][212][213][153]
2071 [153]"VERIFY(null)(null)  PRINT]SPC(    LIST# # VERIFY(null)(null) (null)  PRINTGET[ATNPEEKVAL VERIFY (null)(null)PRINT
2072 PRINT"        [161][161][161][161][161][161][161][161][161][161][161][161][161][[200][201][202]
2073 [153]"  GET[    GET[]]]]]]]]]]]SPC((null)(null)(null)
2074 PRINT"[155]# [153][161][161][161][161][161][161][161][ [155]# ##  #     [208]":POKE1057,10:POKE1047,5
2075 GOTO1025
3000 REM BILD 4
3001 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
3002 PRINT" [200][201][202]      [200][207][202]    [200][207][205]      [149][212][213][153]
3003 [153]" (null)(null)(null)  ATNPEEKVAL (null)(null)(null)ATNPEEKASC (null)(null)(null)  STR$LENASC VERIFY(null)(null)PRINT
3004 PRINT"  [208] [155]#[153] [200][199][202]  [208] [200][201][202]  [208]   [200][201][202]
3005 [153]" (null)(null)(null)  (null)MID$(null) (null)(null)(null)(null)(null)(null) (null)(null)(null)  (null)MID$(null)
3006 PRINT"       [208]      [208]        [208]
3007 [153]"GETGETGETABS  (null)(null)(null) VERIFY(null)(null)PRINT (null)(null)(null)  STR$LENVAL (null)(null)(null)
3008 PRINT"]][161][      [149][214][215][153]      [200][207][201]     [155]#[153]
3009 [153]"  GET[ GETGETGETGETGETGETGETGETGETABS LIST#PRINT (null)(null)(null)  VERIFY(null)(null)LIST
3010 PRINT"# ][166] ]]]]]]][153][161][161][[182]   [208]   [149][214][215][155]
3012 [153]" #      VERIFY(null)(null)PRINT  GETGETGET[  (null)(null)(null)
3013 PRINT"        [149][214][215][155] #[153][161][161][161][       [155]#[153]
3014 [153]"GETABS  GETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETABS
3015 PRINT"][166]  ]]]]]][161][]]]]]]]]]]]]]]]]][166]
3017 [153]"        LIST#PRINT GET[     POKEABCDADABI I IWAIT
3018 PRINT" [155]#  [153][161][161][161][161][161][161][161][  [151]ABI             [146]
3019 [153]"    ]]]]]]]SPC(AB KK    GHEFKGFKKWAIT
3020 PRINT"[153][193][194][197]  [155]#[151]  ABII GH[146]  EFGH[146]
3021 [153]"PRINTLEFT$RIGHT$MID$   POKEAB   GHWAIT         VERIFY(null)(null)
3022 PRINT"[153][204][205][206] [155][163][174][163][174][163][174][163][174][163]   [153][193][194][198]   [149][214][215]
3023 [153]" (null)   POKEOWAITCOSFRECOSFRECOSPWAIT    PRINT(null)(null)(null)  LIST#   VERIFY(null)(null)POKE
3024 PRINT"[209][210][211] AB   GH[146]      [208]       [149][214][215]
3025 [153]"POKEDABI    JWAIT     VERIFY(null)(null)(null)(null)(null)   LIST#
3026 PRINT"[151]       GH[146]  [155]#  [149][214][215]":POKE1057,7:POKE1047,6
3027 GOTO1025
3100 REM BILD 5
3101 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
3102 PRINT"  [161][161][[200][203][202]  [149][212][213]      [212][213]    [153][193][195][197]
3103 [153]"  GETGET[(null)(null)(null)  VERIFY(null)(null) (null)(null) PRINTATNASCVERIFY(null)(null) (null)(null) PRINTLEFT$CHR$MID$
3104 PRINT"[149][212][213]]][166] [208]   [153][161][161][[149][214][215] [153][200][201][197]  [149][214][215] [153][204][205][206]
3105 [153]"VERIFY(null)(null) LIST# (null)(null)(null)  PRINTGETGET[   (null)(null)(null)      (null)
3106 PRINT"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][  [208]  [161][161][161][161][166][210][211]
3107 [153]"]]GETGET[]]]]]]GETGETGET[ (null)(null)(null) GETGET[]SPC( VERIFY(null)(null)PRINT
3108 PRINT"  [161][161][  [155]#   [153][161][161][161][     [161][161][   [149][214][215][153]
3109 [153]"  GETGET[ GETGETGETGETGETGETGETGETGETGETGET[  GETGETGET[ GETGET[
3110 PRINT"  [161][161][ ]][161][161][161][]][161][161][161][161][161][161][161][161][161][ [161][161][
3111 [153]"  GETGET[VERIFY(null)(null) PRINTGETGETGET[  GETGETGETGETGETGETGETGETGET[ GETGET[
3112 PRINT"  [161][161][[149][214][215][153] ][161][161][[149][212][213][153]]]]]]]][161][161][ [161][161][
3113 [153]"LIST# PRINTGETGET[ ATNASC GETGET[VERIFY(null)(null)     (null)(null)]]SPC( PRINTGETGET[
3114 PRINT"  [161][161][[153][193][199][202] [161][161][ [155]# [153][161][161][ [149][214][215] [155]# #[153][161][161][
3115 [153]"  GETGET[(null)(null)(null) GETGETGETGETGETGETGETGET[VERIFY(null)(null)PRINTGETGETGETGETGETGETGET[
3116 PRINT"[149][212][213][153]]][166] [208]  ]]]]]]]][166][149][214][215][153][161][161][161][]]][166]
3117 [153]"VERIFY(null)(null)   (null)(null)(null)   LIST# #   #  PRINTGETGETGET[
3118 PRINT"  [161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][ [149][212][213][153]
3119 [153]"  ]]]]]]]]]]]]]]]]]]GETGETGET[ VERIFY(null)(null)POKE
3120 PRINT"    ABMMMGH[146][153][193][195][198]   [196][195][198]][161][161][   [149][212][213][155]
3121 [153]" TAB(^TAB(^TAB(^TAB(^TAB( PRINTLEFT$RIGHT$MID$ VERIFY(null)(null)PRINTLEFT$RIGHT$MID$ ]GET[VERIFY(null)(null) (null)(null)
3122 PRINT"  [151]O[146][190][184][190][184][190][151]P[146]  [153][204][207][206] [149][214][215][153][204][205][206]  ][166][149][214][215]
3123 [153]" POKEABMNMGHWAIT    (null)     (null)
3124 PRINT"BMNNGH[146]     [209][210][211]   [209][210][211]":POKE1057,15:POKE1047,8
3125 GOTO1025
3200 REM BILD 6
3201 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
3202 PRINT"[153][193][194][198][196][194][198][196][195][197][193][195][197][193][195][198]   [193][194][197][193][194][198][196][195][197][193][194][198]
3203 [153]"LEFT$RIGHT$MID$LEFT$(null)MID$(null)RIGHT$MID$LEFT$(null)MID$LEFT$RIGHT$MID$ATNPEEKVALLEFT$CHR$MID$LEFT$(null)MID$CHR$RIGHT$MID$LEFT$(null)MID$
3204 PRINT"[204][205][206][204][199][206][204][205][206][204][201][206][204][205][206][204][205][206][204][207][206][204][205][206][204][199][206][204][199][206]
3205 [153]" (null) LIST#(null) #(null)# (null)  (null)  (null)# (null)  (null) #(null)  (null)
3206 PRINT"[209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211]
3207 [153]"VERIFY(null)(null) (null)(null)   (null)(null)(null)(null)(null)(null) (null)(null)  (null)(null)    (null)(null)
3208 PRINT"[214][215] [214][215]   [214][215][214][215][214][215] [214][215]  [214][215]  [155]# [149][214][215]
3209 [153]"PRINTASC ATNPEEKVALATNLENVALSTR$LENVAL   STR$LENVALATNPEEKASC ATNLENVAL ATNPEEKVAL
3210 PRINT"[202] [200][201][202][200][205][202][200][199][202][149][212][213] [153][200][207][202][200][201][201] [200][199][202] [200][203][202]
3211 [153]"(null) (null)(null)(null)(null)(null)(null)(null)(null)(null)VERIFY(null)(null) PRINT(null)CHR$(null)(null)(null)(null) (null)CHR$(null) (null)(null)(null)
3212 PRINT"   [208]  [208]  [208]     [208]  [208] [155]# [208]   [208]
3213 [153]"(null) (null)(null)(null)(null)(null)(null)(null)(null)(null)   (null)(null)(null)(null)(null)(null) (null)(null)(null) (null)(null)(null)
3214 PRINT"[153][161][161][161][161][161][161][161][161][161][161][161][[149][212][213]  [153][161][161][161][161][161][161][161][161][161][161][161][161][
3215 [153]"GETGETGETGETGETGETGETGETGETGETGET[VERIFY(null)(null)  PRINTGETGETGET[]]]]]]]]SPC(
3216 PRINT"[161][161][]]]]][161][161][161][    [161][161][161][ [149][212][213] [212][213] [155]#[153]
3217 [153]"GETGET[     GETGETGETGETGET[  GETGETGET[ VERIFY(null)(null) (null)(null)PRINT
3218 PRINT"[161][161][ [149][212][213][212][213][153][161][161][161][161][161][  [161][161][161][161][161][161][161][161][161][161][161][161][161][161]
3219 [153]"GETGET[ VERIFY(null)(null)(null)(null)PRINT]]]]]SPC(VERIFY(null)(null)PRINT]]]]]]]]PRINTGETGETGET[]]
3220 PRINT"[161][161][   [155]#       [149][214][215]   [155]#    [153][161][161][161][
3221 [153]"GETGET[ GETGETGETGETGETGETGETGET[ GETGETGETGET[ STR$LENVAL GETGETGET[
3222 PRINT"[161][161][ [161][161][161][161][161][161][161][161][ ][161][161][161][ [200][203][202] [161][161][161][
3223 [153]"GETGET[ ]]GETGETGET[]]SPC(  GETGETGET[ (null)(null)(null) ]]]SPC(
3224 PRINT"[161][161][   [161][161][161][ [155]#  [153][161][161][161][161][[155]# [153][208]":POKE1057,15:POKE1047,7
3225 GOTO1025
3300 REM BILD 6
3301 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
3302 PRINT"[151]              N  NGHEF  NM  M [146]
3303 [153]"M NM  N   N   MNGHWAITPRINTSTR$PEEKVAL POKEEHEFKKKKWAIT
3304 PRINT"KGFKKMNM NMNNMGH[146]  [153][200][203][202]
3305 [153]" (null)PEEKASC POKEEFKKKKKGHWAIT    PRINT(null)(null)(null) VERIFY(null)(null)PRINTGETABSSTR$LENASC
3306 PRINT" [200][201][202] [161][161][161][161][161][161][161][161][161][161][182]   [208] [149] [214][215][153][161][[200][201][202]
3307 [153]" (null)(null)SIN ]]]]]]]]GETGET[  (null)(null)(null)  GETGET[(null)RIGHT$(null)
3308 PRINT"  [208]  [149][212][213][212][213] [212][213] [153][161][161][  [161][161][161][ [161][161][ [208]
3309 [153]" (null)(null)(null) VERIFY(null)(null)(null)(null) (null)(null) PRINTGETGET[  GETGETGET[ ]GET[(null)(null)(null)
3310 PRINT"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][  [161][161][161][  [161][  [149][212][213][153]
3311 [153]"GETGETGET[]]]]]]]]]]]SPC(VERIFY(null)(null)PRINTGETGET[SPC(VERIFY(null)(null)PRINTGETGET[ABSVERIFY(null)(null)PRINT
3312 PRINT"[161][161][161][     [155]### #  [149][214][215][153][161][161][[155]#[149][214][215][153][161][161][161][ [155]#[153]
3313 [153]"GETGETGET[VERIFY(null)(null) PRINTGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGET
3314 PRINT"[161][161][161][[149][214][215][153] ]]]]]]]]]]]]]]]]]]]]]]][161]
3315 [153]"GETGETGET[   LIST#    VERIFY(null)(null)LIST      #     #   PRINTGET
3316 PRINT"[161][161][161][ [149][212][213][153][161][161][161][[155]#[149][214][215][153][161][161][161][161][161][161][161][161][161][161][161][161][161][182][155]# [153][161]
3317 [153]"GETGETGET[ VERIFY(null)(null)PRINTGETGETGETGETGETGETGETGETGETGETGETGETGETGET[]]GETGETGET[  GET
3318 PRINT"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][[149][212][213][153]]]][166][149][212][213][153][161]
3319 [153]"GETGETGET[]]]]]]]]]]]]]]]]]SPC(VERIFY(null)(null)    (null)(null)PRINTGET
3320 PRINT"[161][161][   [155]#    #       #  [153][161][161][161][161][161][161][161][161][161]
3321 [153]"GET[VERIFY(null)(null)PRINTGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGET[]]]]]]
3322 PRINT"[161][[149][214][215][153]]]]]]]]]]]]]]]]]]]]][166][149][212][213] [155]# #[153]
3323 [153]"GET[              LIST#        VERIFY(null)(null)(null)(null)PRINT
3324 PRINT"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][     [149][214][215]":POKE1057,15:POKE1047,8
3325 GOTO1025
4000 REM BILD 7
4001 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][149]";
4002 PRINT"[212][213] [212][213]  [212][213] [153][161][161][161][ [149][212][213]
4003 [153]"(null)(null) (null)(null)  (null)(null) PRINTGETGETGET[ VERIFY(null)(null) LIST#    VERIFY(null)(null)PRINTGETGETGETGETGETGET
4004 PRINT"  [161][161][161][161][161][161][182] [161][161][161][  [161][161][161][161][161][182] [149][214][215][153][161][161][161]]]]
4005 [153]"  GETGET[]]]SPC(  GETGET[  GETGETGET]]SPC(   ]]]SPC(
4006 PRINT"[155]# [153][161][161][  [155]# # [153][161][161][ [161][161][161][[166]      [155]#[153]
4007 [153]"GETGETGETGETGETGETGETGETGETGETGETGETGET[ GETGETGET[ POKEABIICDADPRINTWAIT
4008 PRINT"[161][161][161][161][161][161][161][161][161][161][161][161][161][ [161][161][[151]ABMN NMM NII[153][146]
4009 [153]"]]]GET[]]]]]]]]SPC( GETGET[POKELMN      M NVERIFYWAIT
4010 PRINT"[212][213] [153][161][   [149][212][213]    [153][161][161][161][[151]EFMN         [149][146]
4011 [153]"(null)(null) PRINTGET[ATNLENVALVERIFY(null)(null)PRINTSTR$PEEKASC GETGET[SPC(  POKELN    MN N PRINTWAIT
4012 PRINT"  [161][161][[200][203][202]  [200][201][202] [161][161][ [151]ABM N  N GHE[155][146]
4013 [153]" #PRINTGETGET[(null)(null)(null)LIST# PRINT(null)(null)(null) GETGET[ POKELN    MMJLISTWAIT #
4014 PRINT"# [153]]][166] [208]    [208]  [161][161][ [151]LN   M GH[153][146] [196][195]
4015 [153]"     GETGETGETGETGETGETGETGETGETGETGET[ POKEL    GHPRINTWAIT   LEFT$(null)
4016 PRINT" [155][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163] #[153][204][205]
4017 [153]" OWAITFRECOSGETGETGETGETGETGETGETGETGETGETGETPOKECOSFRECOSFRECOSFRECOSFRECOSPVERIFYWAIT    (null)
4018 PRINT"[212][213] [153][161][161][161][161][161][161][161][161][161][]][151] MN MN NJ[149][146]    [209][210][211]
4019 [153]"(null)(null) PRINT]]]GETGETGET[]]SPC(LIST# POKELM N   NJVERIFYWAIT (null)(null)
4020 PRINT"  [155]#   [153][161][161][161][[155]## ##[151]EFM   M J[149][146] [214][215] [212][213]
4021 [153]"(null)(null)    PRINTGETGETGETGETGETGET[ GET[ABSPOKELN   NJVERIFYWAIT    (null)(null)
4022 PRINT"[214][215] [212][213] [153]]]][161][161][161][ [161][161][[151]EF     CD[149][146]
4023 [153]"(null)(null) (null)(null)(null)(null)(null)(null)PRINT]GET[SPC(LIST#PRINT]]SPC(VERIFY(null)(null)POKELMM   JVERIFYWAIT
4024 PRINT"[214][215]   [214][215][214][215] [153][161][ [155]# ##[149][214][215][151]LM    J[146]":POKE1057,16:POKE1047,6
4025 GOTO1025
5000 REM BILD 8
5001 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][155]";
5002 PRINT"  #  [153][161][161][161][161][161][161][161][161][161][161][161][161][161][  [149][212][213][212][213][153]
5003 [153]"ATNPEEKASCVERIFY(null)(null)PRINT]GETGETGETGETGETGETGETGETGETGET]]SPC(  VERIFY(null)(null)(null)(null) PRINTATNLENVAL
5004 PRINT"[200][201][202][149][214][215] [153]]]]]]]]]]][166] [196][194][197]     [200][201][202]
5005 [153]"(null)(null)(null) STR$LENVAL LIST# ##  #   PRINTLEFT$(null)MID$GETGETABS  (null)(null)(null)
5006 PRINT" [208]  [200][201][202]  [149][212][213]   [153][161][161][182] [204][205][206][161][161][   [208]
5007 [153]"(null)(null)(null) (null)(null)(null)  VERIFY(null)(null) PRINTGETGETGETGET[  (null) GETGETGET[ (null)(null)(null)
5008 PRINT"     [208]  [161][161][161][161][161][161][161][161][ [209][210][211][161][161][161][161][
5009 [153]"STR$LENVAL (null)(null)(null) GETGET[]]]GETGETGETGETGETGETGETGET[]]SPC(
5010 PRINT"[200][203][202][161][161][161][161][161][161][161][   [161][161][]]]][161][ [149][212][213] [212][213][153]
5011 [153]"(null)(null)(null)GETGETGETGETGETGETGET[ VERIFY(null)(null)PRINTGETGET[    GET[ VERIFY(null)(null) (null)(null)PRINT
5012 PRINT" [208] ]]]]][161][161][ [149][214][215][153][161][161][ [149][212][213] [153][161][161][161][161][
5013 [153]"(null)(null)(null) LIST#   PRINTGETGET[   GETGET[ VERIFY(null)(null) PRINTGETGETGETGETGETGET[VERIFY
5014 PRINT"     [212][213] [153][161][161][[149][212][213] [153][161][161][  [149][212][213][153][161][]]]][166]
5015 [153]" ATNLENVAL VERIFY(null)(null) PRINTGETGET[VERIFY(null)(null) PRINTGETGET[VERIFY(null)(null)(null)(null)PRINTGET[    LIST#PRINT
5016 PRINT" [200][201][202]   [161][161][161][   [161][161][[149][214][215]  [153][161][161][ [155]#[153]
5017 [153]" (null)MID$(null)GETGETGETGETGETGET[ LIST# PRINTGETGET[VERIFY(null)(null)(null)(null)PRINTGETGET[ STR$PEEKVAL
5018 PRINT"  [208] [161][161][][161][161][   [161][161][[149][214][215][214][215][153][161][161][ [204][205][206]
5019 [153]" (null)(null)(null)GETGET[ ]]SPC(ATNVAL GETGET[ VERIFY(null)(null) PRINTGETGET[  (null)
5020 PRINT"[196][195][197] [161][161][   [196][203][202][161][161][161][ [149][214][215] [153][161][161][161][[209][210][211]
5021 [153]"(null)(null)(null) GETGET[  LIST#PRINT(null)(null)(null)GETGETGET[VERIFY(null)(null)(null)(null)PRINTGETGETGET[
5022 PRINT" [208]  [161][[166]    [208] [161][161][161][[149][214][215][214][215][153][161][161][161][
5023 [153]"(null)(null)(null) GET[ LIST#  PRINT(null)(null)(null)GETGETGET[ GETGETGETGETGETGET[
5024 PRINT"    [161][[155]#  # ##[153][161][161][161][161][161][161][161][161][161][161][161][":POKE1057,17:POKE1047,5
5025 GOTO1025
6000 REM BILD 9
6001 PRINT"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][149]";
6002 PRINT"[212][213] [212][213][212][213] [153][161][161][   [149][212][213]    [212][213]
6003 [153]"(null)(null) (null)(null)(null)(null) PRINTGETGET[   VERIFY(null)(null)  LIST# VERIFY(null)(null)    PRINTATNLENVAL
6004 PRINT"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][182][200][207][202]
6005 [153]"GETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGETGET[]]]]GETGETGET[(null)(null)(null)
6006 PRINT"]]]]]]]]][161][161][161][]]]][166] [155]#  [153][161][161][161][ [208]
6007 [153]"   VERIFY(null)(null) LIST# #PRINTGETGETGET[ VERIFY(null)(null)  (null)(null)  PRINTGETGET[ (null)(null)(null)VERIFY
6008 PRINT" [212][213][214][215][153][161][161][161][161][161][161][161][ [149][214][215]  [214][215]  [153][161][[149]
6009 [153]" (null)(null)  PRINT]]]]GETGETGETGETGETGETGETGETABS STR$LENVALGET[ ATNLENVAL
6010 PRINT"[161][161][161][161][182]    [161][161][]]][161][161][ [200][203][202]][166] [200][201][202]
6011 [153]"GETGETGETGET[ VERIFY(null)(null) PRINTGETGET[ VERIFY(null)(null)PRINT]]SPC( (null)(null)(null) VERIFY(null)(null)PRINT(null)(null)(null)
6012 PRINT"]][161][161][ [149][214][215] [153]]][166] [149][214][215] [155]#   [208]  [149][214][215] [208][153]
6013 [153]"  GETGET[     LIST#  #    #(null)(null)(null)   (null)(null)(null)PRINT
6014 PRINT"  [161][[166] [151]ABIIICDADABIIIIIIICD[146]
6015 [153]"  PRINTGET[POKEABMNMNM  NM  NMNMN NNMIIIIWAITLIST
6016 PRINT"# [153][161][[151]EFKM N     N         M NMN[146][153]
6017 [153]"  GET[   POKEEF NMN NKKMNMMKNMN MN MWAITPRINT
6018 PRINT"  [161][161][161][161][  [151]EHEFGH[146]  EFGH[146] EHEFKKKK[146][153]
6019 [153]"  GETGETGETGETGETGETGETGETGET[   GET[ LIST# PRINT GETGETGETGET[VERIFY
6020 PRINT"[212][213][153]]]]]]]][161][161][[149][212][213] [153][161][  [149][212][213][153][161][161][][166]
6021 [153]"VERIFY(null)(null) LIST## # #PRINTGETGET[VERIFY(null)(null) PRINTGETGET[ VERIFY(null)(null)PRINTGET[
6022 PRINT"[151]IIIIIIICBIIIIIIIIIIICD[146]
6023 [153]"MNM N NM  N NM NMNMN NIICDWAIT
6024 PRINT"         M     NM   NM M MIIII[146]":POKE1057,15:POKE1047,6
6025 GOTO1025
9000 REM HALL OF FAME
9002 POKE53265,65:PRINT"[147]";:PRINTTAB(14)"[149]HALL OF FAME":PRINT"";
9003 FORT=1TO10:PRINT"";:PRINTTAB(11)"[155]"N$(T)"":PRINT"[145][145][149]"
9004 PRINTTAB(22)HS(T)
9005 PRINT"";:T=T+1:PRINTTAB(13)"[153]"N$(T)"":PRINT"[145][145][149]"
9006 PRINTTAB(24)HS(T):NEXT
9007 IFSC>HSTHEN9009
9008 GOTO9020
9009 I=0
9010 I=I+1:IFSC>HS(I)THENHB=I:GOTO9012
9011 GOTO9010
9012 FORA=10TOISTEP-1:HS(A)=HS(A-1):N$(A)=N$(A-1):NEXTA
9013 HS(HB)=SC:SC=0:N$(HB)=N$:PRINT"";
9014 GOTO9003
9020 POKE53265,155
9021 J=PEEK(56320):IFJ=111THEN10000
9022 GOTO9021
9200 REM ENTER NAME
9201 PRINT"[147]":POKE53283,7
9202 PRINTTAB(13)"[149]CONGRATULATIONS"
9203 PRINTTAB(6)"[151]YOU ARE ONE OF THE BEST TODAY"
9204 PRINTTAB(9)"[155]PLEASE ENTER YOUR NAME"
9205 PRINTTAB(13)"[154][220][168][220][168][220][168][220][168][220][168][220][168][220][168]"
9206 PRINTTAB(13)"[168]            [220]"
9207 PRINTTAB(13)"[220] [149]A          [154][168]"
9208 PRINTTAB(13)"[168] [159]^          [154][220]"
9209 PRINTTAB(13)"[220][168][220][168][220][168][220][168][220][168][220][168][220][168]"
9210 PRINTTAB(11)"[149]YOUR SCORE :"SC""
9212 SI=54272:POKESI+24,31:POKESI+23,243:POKESI+6,240:POKESI+13,240
9213 POKESI+5,0:POKESI+12,0
9214 POKESI+3,8:POKESI+10,8:POKESI+1,2:POKESI+8,2:POKESI,100:POKESI+7,105
9215 POKESI+4,65:POKESI+11,65:POKESI+22,0:POKESI+18,0
9220 A=65:N$="":X=15
9222 J=PEEK(56320)
9223 IFJ=119THENX=X+1:GOTO9240
9224 IFJ=123THENX=X-1:GOTO9240
9225 IFJ=126THENA=A+1:GOTO9243
9226 IFJ=125THENA=A-1:GOTO9243
9228 IFJ=111THEN9250
9229 GOTO9222
9230 B=(A-64)*3:POKESI+22,B:C=A
9231 POKE211,X:POKE214,12:SYS58640:H$=CHR$(C):PRINT"[149]"H$"";
9232 POKE211,X-1:POKE214,13:SYS58640:PRINT"[159] ^ ";
9233 GOTO9222
9240 IFX=14THENX=15:GOTO9230
9241 IFX=25THENX=24:GOTO9230
9242 C=32:GOTO9231
9243 IFA=64THENA=65:GOTO9230
9244 IFA=91THENA=90:GOTO9230
9245 GOTO9230
9250 D=0
9251 D=D+1:A=PEEK(49646+D):E=A+64:IFE=96THENE=32
9252 N$=N$+CHR$(E):IFD=10THEN9254
9253 GOTO9251
9254 POKESI+23,240:POKESI+24,0:GOTO9002
10000 REM TITELBILD
10001 POKE53281,0:PRINT"[147][151]":POKE53265,65:POKEV+21,0
10002 POKE53282,0:POKE53283,7
10006 PRINTTAB(11)"QRUWXWXU]![U[146] $%]X]X[146]*"
10007 PRINTTAB(11)"[151]STVYZYZV_#S\[146] &'^Z^Z[146]"
10008 PRINT""
10009 PRINTTAB(9)"@ [149]COBRA SOFT INC. 1988":PRINT""
10011 PRINTTAB(7)"[151]DESIGNED AND PROGRAMMED BY":PRINT"";
10012 PRINTTAB(13)"[155]JOERG SIESLACK":PRINT""
10013 PRINTTAB(2)"[149]SPRITE INTERRUPT: ARND PAULSEN 1988":PRINT"";
10014 PRINTTAB(11)"[150]PRESS FIRE TO PLAY":PRINT""
10015 PRINT" [153]HI SCORE [149]000000   [153]STAGE [149]01   [153]LIVES [149]03"
10016 A=PEEK(1202):B=PEEK(1203):D=13
10017 Y=A*25+B*200:GOSUB10024
10018 IFZ>9999THEND=10:GOTO10021
10019 IFZ>999THEND=11:GOTO10021
10020 IFZ>99THEND=12:GOTO10021
10021 POKE211,D:POKE214,22:SYS58640:PRINT"[149]"Z"";
10022 POKE211,D:SYS58640
10023 PRINT"[149]0";:GOTO10026
10024 C=PEEK(1200):E=PEEK(1201):X=C*25+E*200:IFX>YTHENZ=X:GOTO10029
10025 Z=Y:RETURN
10026 SYS21651:SYS18633:SYS21911:POKE53265,155:POKE54275,7:SYS23172
10027 POKE53265,65:POKE53283,8:FORI=0TO24:POKE54272+I,0:NEXT:POKEV+21,255
10028 GOTO98
10029 POKE1202,PEEK(1200):POKE1203,PEEK(1201):RETURN